﻿<Serializable()> _
Public Class EahorroPrevio

#Region "           Atributos                       "
    Private _idProyecto As Int32
    Private _idEtapa As Int32
    Private _idSeparacionVenta As Int32
    Private _idAhorroPrevio As Int32
    Private _idCliente As Int32
    Private _nroDocumento As String
    Private _EentidadFin As EentidadFin
    Private _descEntidadFin As String
    Private _sectorista As String
    Private _montoTotal As Decimal
    Private _fchProgramacion As String
    Private _nroCtas As Int32
    Private _correlativo As Int32
    Private _fchCancelacion As String
    Private _montoCta As Decimal
    Private _estadoAhorroPrevio As Int32
    Private _descEstadoAhorroPrevio As String
    Private _observacion As String
    Private _estado As String
    Private _descEstado As String
    Private _idUsuario As Int32
#End Region

#Region "           Propiedades                     "
    Public Property idProyecto() As Int32
        Get
            Return _idProyecto
        End Get
        Set(ByVal value As Int32)
            _idProyecto = value
        End Set
    End Property
    Public Property idEtapa() As Int32
        Get
            Return _idEtapa
        End Get
        Set(ByVal value As Int32)
            _idEtapa = value
        End Set
    End Property
    Public Property idSeparacionVenta() As Int32
        Get
            Return _idSeparacionVenta
        End Get
        Set(ByVal value As Int32)
            _idSeparacionVenta = value
        End Set
    End Property
    Public Property idAhorroPrevio() As Int32
        Get
            Return _idAhorroPrevio
        End Get
        Set(ByVal value As Int32)
            _idAhorroPrevio = value
        End Set
    End Property
    Public Property idCliente() As Int32
        Get
            Return _idCliente
        End Get
        Set(ByVal value As Int32)
            _idCliente = value
        End Set
    End Property
    Public Property nroDocumento() As String
        Get
            Return _nroDocumento
        End Get
        Set(ByVal value As String)
            _nroDocumento = value
        End Set
    End Property
    Public Property EentidadFin() As EentidadFin
        Get
            Return _EentidadFin
        End Get
        Set(ByVal value As EentidadFin)
            _EentidadFin = value
        End Set
    End Property
    Public Property descEntidadFin() As String
        Get
            Return _descEntidadFin
        End Get
        Set(ByVal value As String)
            _descEntidadFin = value
        End Set
    End Property
    Public Property sectorista() As String
        Get
            Return _sectorista
        End Get
        Set(ByVal value As String)
            _sectorista = value
        End Set
    End Property
    Public Property montoTotal() As Decimal
        Get
            Return _montoTotal
        End Get
        Set(ByVal value As Decimal)
            _montoTotal = value
        End Set
    End Property
    Public Property fchProgramacion() As String
        Get
            Return _fchProgramacion
        End Get
        Set(ByVal value As String)
            _fchProgramacion = value
        End Set
    End Property
    Public Property nroCtas() As Int32
        Get
            Return _nroCtas
        End Get
        Set(ByVal value As Int32)
            _nroCtas = value
        End Set
    End Property
    Public Property correlativo() As Int32
        Get
            Return _correlativo
        End Get
        Set(ByVal value As Int32)
            _correlativo = value
        End Set
    End Property
    Public Property fchCancelacion() As String
        Get
            Return _fchCancelacion
        End Get
        Set(ByVal value As String)
            _fchCancelacion = value
        End Set
    End Property
    Public Property montoCta() As Decimal
        Get
            Return _montoCta
        End Get
        Set(ByVal value As Decimal)
            _montoCta = value
        End Set
    End Property
    Public Property estadoAhorroPrevio() As Int32
        Get
            Return _estadoAhorroPrevio
        End Get
        Set(ByVal value As Int32)
            _estadoAhorroPrevio = value
        End Set
    End Property
    Public Property descEstadoAhorroPrevio() As String
        Get
            Return _descEstadoAhorroPrevio
        End Get
        Set(ByVal value As String)
            _descEstadoAhorroPrevio = value
        End Set
    End Property
    Public Property observacion() As String
        Get
            Return _observacion
        End Get
        Set(ByVal value As String)
            _observacion = value
        End Set
    End Property
    Public Property estado() As String
        Get
            Return _estado
        End Get
        Set(ByVal value As String)
            _estado = value
        End Set
    End Property
    Public Property descEstado() As String
        Get
            Return _descEstado
        End Get
        Set(ByVal value As String)
            _descEstado = value
        End Set
    End Property
    Public Property idUsuario() As Int32
        Get
            Return _idUsuario
        End Get
        Set(ByVal value As Int32)
            _idUsuario = value
        End Set
    End Property

#End Region

#Region "           Propiedades Avanzadas           "

#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    Public Sub New(ByVal idSeparacionVenta As Int32, ByVal idAhorroPrevio As Int32)
        Me.idSeparacionVenta = idSeparacionVenta
        Me.idAhorroPrevio = idAhorroPrevio
    End Sub
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, ByVal idCliente As Int32, _
                   ByVal idEntidadFin As Int32, ByVal sectorista As String, ByVal montoTotal As Decimal, ByVal fchProgramacion As String, _
                   ByVal nroCtas As Int32, ByVal correlativo As Int32, ByVal fchCancelacion As String, ByVal montoCta As Decimal, _
                   ByVal estadoAhorroPrevio As Int32, ByVal observacion As String, ByVal estado As String, ByVal idUsuario As Int32)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.idCliente = idCliente
        Me.EentidadFin.idEntidadFin = idEntidadFin
        Me.sectorista = sectorista
        Me.montoTotal = montoTotal
        Me.fchProgramacion = fchProgramacion
        Me.nroCtas = nroCtas
        Me.correlativo = correlativo
        Me.fchCancelacion = fchCancelacion
        Me.montoCta = montoCta
        Me.estadoAhorroPrevio = estadoAhorroPrevio
        Me.observacion = observacion
        Me.estado = estado
        Me.idUsuario = idUsuario
    End Sub

    '********** SEPARACION **********'
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, ByVal nroDocumento As String, ByVal idAhorroPrevio As Int32, _
                   ByVal idEntidadFin As Int32, ByVal descEntidadFin As String, ByVal montoTotal As Decimal, ByVal fchProgramacion As String, _
                   ByVal nroCtas As Int32, ByVal correlativo As Int32, ByVal fchCancelacion As String, ByVal montoCta As Decimal, _
                   ByVal estadoAhorroPrevio As Int32, ByVal sectorista As String, ByVal observacion As String)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.nroDocumento = nroDocumento
        Me.idAhorroPrevio = idAhorroPrevio
        Me.EentidadFin = New EentidadFin(idEntidadFin, descEntidadFin)
        Me.descEntidadFin = descEntidadFin
        Me.montoTotal = montoTotal
        Me.fchProgramacion = fchProgramacion
        Me.nroCtas = nroCtas
        Me.correlativo = correlativo
        Me.fchCancelacion = fchCancelacion
        Me.montoCta = montoCta
        Me.estadoAhorroPrevio = estadoAhorroPrevio
        Me.descEstadoAhorroPrevio = IIf(estadoAhorroPrevio = 1, "PENDIENTE", "CANCELADO")
        Me.sectorista = sectorista
        Me.observacion = observacion
    End Sub
#End Region

End Class
